home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ClipArt Heaven 2
/
ClipArt Heaven 2.iso
/
utility
/
datashow
/
wordrand.shw
< prev
next >
Wrap
Text File
|
1992-08-31
|
2KB
|
77 lines
VARIABLE CREATE value TYPE NUMBER 0
MATH value = RANDOM(8)
IF value 1 DO JUMPMARK 1
IF value 2 DO JUMPMARK 2
IF value 3 DO JUMPMARK 3
IF value 4 DO JUMPMARK 4
IF value 5 DO JUMPMARK 5
IF value 6 DO JUMPMARK 6
IF value 7 DO JUMPMARK 7
IF value 8 DO JUMPMARK 8
MARK 1
VARIABLE CREATE var1 TYPE STRING "It is a fruit, long"
VARIABLE CREATE var2 TYPE STRING "and it is yellow"
VARIABLE CREATE result TYPE STRING "BANANA"
JUMPMARK 10
MARK 2
VARIABLE CREATE var1 TYPE STRING "It is a fruit, round"
VARIABLE CREATE var2 TYPE STRING "and it is red"
VARIABLE CREATE result TYPE STRING "APPLE"
JUMPMARK 10
MARK 3
VARIABLE CREATE var1 TYPE STRING "It is a plant, fragile"
VARIABLE CREATE var2 TYPE STRING "and it is red"
VARIABLE CREATE result TYPE STRING "ROSE"
JUMPMARK 10
MARK 4
VARIABLE CREATE var1 TYPE STRING "It is a plant, small"
VARIABLE CREATE var2 TYPE STRING "and it is white and yellow"
VARIABLE CREATE result TYPE STRING "DAISY"
JUMPMARK 10
MARK 5
VARIABLE CREATE var1 TYPE STRING "It is a person, old"
VARIABLE CREATE var2 TYPE STRING "and former president"
VARIABLE CREATE result TYPE STRING "REAGAN"
JUMPMARK 10
MARK 6
VARIABLE CREATE var1 TYPE STRING "It is a person, woman"
VARIABLE CREATE var2 TYPE STRING "and former prime minister"
VARIABLE CREATE result TYPE STRING "THATCHER"
JUMPMARK 10
MARK 7
VARIABLE CREATE var1 TYPE STRING "It is an animal, hairy"
VARIABLE CREATE var2 TYPE STRING "and has long arms"
VARIABLE CREATE result TYPE STRING "APE"
JUMPMARK 10
MARK 8
VARIABLE CREATE var1 TYPE STRING "It is an animal, big"
VARIABLE CREATE var2 TYPE STRING "and has a long nose"
VARIABLE CREATE result TYPE STRING "ELEPHANT"
MARK 10